home *** CD-ROM | disk | FTP | other *** search
/ Hunter 2006 / Hunter 2006.iso / soft / sleipnir241.exe / {app} / scripts / ƒ†[ƒeƒBƒŠƒeƒB / ƒZƒLƒ…ƒŠƒeƒB‚Ì”½“].vbs < prev    next >
Text File  |  2006-06-15  |  616b  |  24 lines
  1. ' âAâNâeâBâué╚âyü[âWé╠âZâLâàâèâeâBé≡ö╜ô]é│é╣é▄é╖üB
  2.  
  3. Option Explicit
  4.  
  5.     Dim obj, id
  6.     Set obj = CreateObject("Sleipnir.API")
  7.     id = obj.GetDocumentID(obj.ActiveIndex)
  8.  
  9.     If id <> 0 Then
  10.         Dim js, java, rx, dx, pic, snd, video
  11.  
  12.         js    = obj.IsJavaScriptEnabled(id)
  13.         java  = obj.IsJavaEnabled(id)
  14.         rx    = obj.IsRunActiveXEnabled(id)
  15.         dx    = obj.IsDownloadActiveXEnabled(id)
  16.         pic   = obj.IsPictureEnabled(id)
  17.         snd   = obj.IsSoundEnabled(id)
  18.         video = obj.IsVideoEnabled(id)
  19.  
  20.         Call obj.SetSecurity(id, Not js, Not java, Not rx, Not dx, Not pic, Not snd, Not video)
  21.     End If
  22.  
  23.     Set obj = Nothing
  24.